home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / programmer / 7021 < prev    next >
Encoding:
Text File  |  1996-08-05  |  1.4 KB  |  49 lines
  1. Newsgroups: comp.sys.amiga.programmer
  2. Path: lafn.org!af274
  3. From: af274@lafn.org (Curtis Stanton)
  4. Subject: ARexx/serial dev question
  5. X-Nntp-Posting-Host: lafn.org
  6. Message-ID: <1996Apr6.172801.10419@lafn.org>
  7. Sender: news@lafn.org
  8. Reply-To: af274@lafn.org (Curtis Stanton)
  9. Organization: The Los Angeles Free-Net
  10. Date: Sat, 6 Apr 1996 17:28:01 GMT
  11.  
  12.  
  13. I hope this is the proper forum for this question.  I haven't
  14. done much ARexx programming (and I don't have much experience
  15. with the serial device) so I would appreciate any help I can
  16. get.  I have been trying to write a simple program to use the
  17. modem to dial a number, give me time to pick up the phone and
  18. then hangup the modem.  So far the results from the following
  19. code are:  the "SD" and "RD" lights flash, the "TR" light turns
  20. on, remains on during the pause and then turns off.  Nothing
  21. else happens -- no dial tone -- no ring -- no nuthin.
  22.  
  23. I'm using an A4000/040, ADOS 3.0 and a Supra FAX modem 288.
  24.  
  25. Thanks for any suggestions,
  26. Curtis Stanton
  27. af274@lafn.org
  28.  
  29. /* test dial modem */
  30.  
  31. OPTIONS RESULTS
  32.  
  33. Lib='rexxsupport.library'
  34. ADDLIB(Lib,0,-30,0)
  35.  
  36. cr          = '0d'x
  37. InitModem   = 'ATZ'||cr
  38. PhoneNumber = 'ATDT 853-1212;'||cr
  39. hangup      = 'ATH'
  40. pause       = 50*5
  41.  
  42. IF OPEN('output','SER:','W') THEN DO
  43.    WRITELN('output',InitModem)
  44.    WRITELN('output',PhoneNumber)
  45.    DELAY(pause)
  46.    WRITELN('output',hangup)
  47.    CLOSE('output')
  48. END
  49.